Option Explicit
Sub P_Sample015()
    Dim myName As String
    myName = ThisWorkbook.Path & "\" & "Tmp1"		'NƧ
    If Len(Dir(myName, vbDirectory)) > 0 Then
        ChDir myName
    End If
    MsgBox CurDir
End Sub
